home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zf.d64 / txt.double dutch < prev    next >
Text File  |  2007-03-01  |  1KB  |  52 lines
  1. ┴ ─╒╘├╚ ├╧═┴╠?
  2.  
  3. BY ─ICK ╦LINGENS,
  4. ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  5.  
  6. ╠OOK AT THE FOLLOWING (PROGRAM?).
  7. ╘RANSLATE IT INTO GOOD ├╧═┴╠-80!
  8.  
  9.    ╫╔╙
  10.    ╥┴╬─╧═╔┌┼
  11.    //
  12.    ╚┴┴╠ "NUMBER OF GAMES": N
  13.    //
  14.    WON:=0; LOST:=0
  15.    ═┼╘ I:=1 ╘╧╘ N ─╧┼
  16.      POINTS:=╥╬─(1,6)+╥╬─(1,6)
  17.      ╦┼╒┌┼ POINTS ╒╔╘
  18.      ╔╬─╔┼╬ 7,11
  19.        WON:+1
  20.      ╔╬─╔┼╬ 2,3,13
  21.        LOST:+1
  22.      ┌╧╬╔┼╘
  23.        READY:=╧╬╫┴┴╥
  24.        ╚┼╥╚┴┴╠
  25.          SECOND:=╥╬─(1,6)+╥╬─(1,6)
  26.          ┴╠╙ SECOND=POINTS ─┴╬
  27.            WON:+1
  28.            READY:=╫┴┴╥
  29.          ┼╔╬─┴╠╙
  30.          ┴╠╙ SECOND=7 ─┴╬
  31.            LOST:+1
  32.            READY=╫┴┴╥
  33.          ┼╔╬─┴╠╙
  34.        ╘╧╘─┴╘ READY
  35.      ┼╔╬─╦┼╒┌┼
  36.    ┼╔╬─═┼╘ I
  37.    //
  38.    ─╥╒╦ ┌╧┴╠╙ "╫ON ##.#%": WON/N*100
  39.  
  40. ╒SE YOUR OWN KEYWORDS, LIKE ╔ DID.
  41.  
  42. ├HANGE THE KEYWORDS IN THE ─┴╘┴
  43. STATEMENTS IN THE PROGRAM 'CHANGE
  44. COMAL' AS YOU WISH. ╚OWEVER, BE
  45. CAREFULL AND READ THE NOTES IN THE
  46. PROGRAM ITSSELF. ╙OMETIMES THE SYSTEM
  47. CRASHES.
  48.  
  49. ╘HE MENTIONED PROGRAM AND A (DOUBLE?)
  50. 'DUTCH COMAL' WHICH GIVES THE ABOVE
  51. LISTING, ARE ON DISK.
  52.